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?6 


000003 


550040 


000000 
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40 








41 








42 


000004 


313040 


000000 
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000005 


260140 


000000 


44 








45 


000006 


2540?'0 


000015- 


46 


000007 
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000211' 


47 


000010 


502064 


047652 




000011 
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000012 


412372 
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000013 


514000 


000000 


4B 


000014 
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000211' 


51 


000016 


446311 


'20232 
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;»»»CaPYRIGHT 1969i OIRITAt FQU]PMENT CORP.i MAYNARD, "lASS.*** 

:THIS SUfl-PROGRAM ASSEM9LEn '^ITH SYSTEM PARAMETER FILE - S,MAC(V414) 

XLIST 

LIST 
TITLE ERRCOiM - HONITOR DETECTED ERROR HANDLING ROUTIMES - V404 
SURTTL T, HASTINr;S/TH/RCC T": 01 JUM 69 
yP VEHRCNi404f 

ITHJS MACRO PUTS VERSION NO. IN STORAGE MAP AND r.LOB 



ENTRY ERRCON ;ALW4YS LOAD ERRCONdF L18 SEARCH) 



ERRCON; 



(THESE ERROR ROUTINE PRINT "FRROR IN JOB N" 
;F0LLOWEO BY AN APPROPRIATE rRPQR MESSAGE 
(THEN THE JOB IS STOPPED AND CONSOLE IS RETURNED TO 
IMONITOR COMMAND MODE 

APR UETFCTEH ERRORS 

PUSHDOWN QVERFLOWi ILLEGAL MEMORY, NONEXISTENT MEMORY 

FOR WHICH THE USER IS NOT E"UPLED. 

SFE APRSER TO SEE HOW APR ImTERRUPTS ARE HANDLED 

CALL' SKIPE TAC.APRERR IRESULT OF COM APR,APREPR 

PUSHJ PDP,APRILM IFRQW CL^ SERVICE ROUT,(LOWEST PRIOTITY Pl) 

RETURN TO RESCHEOULE NEW USER 

INTERNAL APRILM 

EXTERNAL USRREL,APRPC 

EXTERNAL APRFRR,cONMES,HOLO, ! NLMES , JOBN , P JOB , PRQM 

EXTERNAL STOPl,TTYFUM,USRxn.UUO0,WSCHFD 



APRILM! SETEM APRERR 

TRMN TACILM 

JRST APRKiXM 

HRB? TACAPRPC 
IFE FT2RFL.< 

r-AMG TACUSRREl 
> 
IFN FT2REL.< 

EXTERN SEGILM 

CAMLF TAC.USRREL 

DUSHJ PDP.SEGILM 
> 

JRST APRILR 

JSP TACERPPTU 

ASCI? /PC OUT TF anu'-'DS/ 



(CLEAR FLAG IMMEDIATELY, IN CASE OTHER ERRORS OCCUR 

(ILLEGAL MEMORY? 

(NO 

(YES, PC STORED BY APR INTERRUPT 

( IS PC I"-! BOUNDS/ 



(IS PC IN BOUNOS(LOG SEG)7 

JNO, IS PC IN LEGAL MEMORY IN HIGH SEG7 

(YFS, GO PRIN:T ILL MEM REF 

(NO, PRINT PC EXCEEDS MEM POUND 



JRST APRSCn 

APRILRl JSP TACERRPTU 

ASCI? /ILL MEM RFF/ 



(PRINT LOC, THEN STOP JOB 



■52 ^0f021 ?5'10'?( 



('■0?ie'76' 



JRST APRSCO 



IPRINT LOC. THFN STOP JQR 



FHRCON - MONITOH DETCCED ERROR HAMOLING ROUTINES 
T. HASTIMGS/TH/RCC TS 01 JUN 69 



V4?I<1 



MACRO, V35 19:07 1-JUN-69 PAGE 1'' 



53 
R4 

55 
56 
57 



58 
59 
60 
61 
62 
63 

64 
65 
66 
67 
68 



(^00022 
P!0PI0?3 
P0C0J4 
P^00025 
?000?6 
70PI027 
00?I030 

000031 
("00032 
!'.00033 
?'00034 
PI00035 
'''0C076 
000037 



606040 
25407,0 
265040 
472371 
541011 
0000!'0 
254070 

606040 
265240 
265040 
502111 

530er0 

2001i''0 
2540C0 



01^000 

000031' 
000211' 
620212 
542632 

000000 
000036 ' 

201000 

000052' 

000211' 

420236 

000000 

000003' 

000236' 



APRNXMl TRNN TAC.NXM 
JRST APRPDU 
JSP TACFRRPTU 
iSni? /NON EV MEM/ 



JRST APRSCD 

APRPDLt TRMN TACPOV 

JSP DAT.llERROR 
JSP TACERRPTU 
ASCI' /PDL OV/ 

APRSCOI MOVE TACl.APRPff 
JRST PCP^lT ( 



INON-EX ''EM? 

INO 

lYES 



SPRINT LOC» THEN STOP JOB 

IPUSHOOWNi OVERFLOW? 

INO, MUST BE HARDWARE PROBLEM 

lYES 



IPRINT APR PC 

lASi 

I 1)"AT USER LOC XXX" OR 

) 2)"AT EXEC LOC XXXi EXEC CALLE') FROM 

I EXEC/USER LOC YYY 



FROcnN - HONITOR DETECTED ERROR HANDLING ROUTINE<: - 7404 
T. H4STINGS/TH/RCC TS 01 JUN 69 
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A9 








70 








71 








72 








73 








74 








75 


000040 


265040 


000212 


76 


(500041 


406110 


451212 




000042 


516464 


041620 




000043 


426071 


320214 




000044 


476444 


000000 


77 


000045 


254000 


000167' 


7? 








79 








80 








81 








82 








A3 








A4 








85 








8 6 








87 








«8 








89 








90 


000046 


0000r0 


000000 


91 


000047 


201140 


000000 


92 


000050 


261140 


000046' 


93 








94 








95 








"6 


000051 


6342,10 


000004 


97 


000052 


?002'"0 


000000 


98 


000053 






99 








l'^0 








111 








172 








15'3 


000B53 


266040 


000213' 


114 


000054 


426452 


247644 




000055 


202231 


620232 




000056 


476351 


152236 




000057 


5100B0 


000000 


l?i5 


000060 


?001?3 


777777 


i;>6 


000061 


254000 


000236' 


1?7 








1^8 








1?9 








110 








111 








112 








113 








114 








115 


000062 


265040 


000211 ' 



(ADDRESS CHECK ERROR AT ANY | EVEL 

-■DEVDAT XUST BE SET UP TO POINT TO OFFENDING DEVICE 



INTERNAL ADRFRR 
ADRERRI JSP TAC.ERRDEV 



ASCI7 /ADDRESS CHECK FOR / 



(GET JOB NO, FROM DEVICE DATA BLOCK 



JRST OEVEXC 



iUNEXPLAINABLE MONITOR ERROR 

ICALLi JSP DAT.UERROR 



JSP OAT.ERRQP 
JSP OAT.OERROR 

jSP DAT.CERROR 



I JSP DAT.CERROR IBL 

INTERNAL ERROR, UERRQR.CERROR.OERRQR 
EXTERNAL JOe.ERRPDL.MULADR 
NLADDR! EXP NULADR 
error: MOVE! PDP.ERRPDL 
OERROR! PUSH POP, NLADDR 



IPRINT "DEVICE XXX; EXEC CALLED FROM 
I EXEC/USER LOC YYY" 
1 THEN STOP JOR 



lAT UUO LEVEL(PDP SET UP) 

IAT INTERRUPT LEVEUPDP NOT SET UP) 

lAT INTERRUPT OR UUO LEVEL (POP SET UP) -MESSAGE TO 

) OPERATOR'S CONSOLE RATHER THAN SPECIAL JOj 

IBLAME JOB=C(ITEM), POP SETUP 



UERROR: 
CERROfl! 
■" FTHALT,< 



TDi?A ITEM, ITEM 
MOVE ITEM, JOB 



IFN 



HALT 



.+1 



jSP TAC.FRRPNT 

ASCI? /ERROR IN MONITOR/ 




MOVE TACl,-l(PDP) 
JRST PCPVT 



i INPUT UUO FOR OUTPUT DEVICE 
(CALLED AT UDO LEVEL ONLY 



(GET LOC OF JSP DAT, ERROR 
(PRINT "AT EXEC LOC XXX) 
) EXEC CALLED FROM EXEC/USER YYY" 
) THEN STOP JOB 



INTERNAL ILLINP 
265040 000211' ILLINPl JSP TACERRPTU 



ER''cnN 



- MONITOR DETFCTED ERROR HANDLING ROUTINES 
T. H4STINGS/TH/RCC TS !?1 JUN 69 



\lA7lii 
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116 


C"0(?063 


476532 


450252 




T'BP.^bA 


521?;'0 


0000710 


137 


("0p:a65 


?6:?140 


000310' 


118 


?I0!»066 


265040 


003233' 


119 


P'af'wfi? 


202070 


147234 




t10f1070 


4765*^4 


042236 




cafe?! 


202231 


650252 




(5a(»072 


520020 


00P0'10 



isni /OUTPUT / 

PUSHJ PDP.ER»JAM 

JSP TACliUOMFS 

ASCI? / CANNOT 00 INDUT/ 



IPRINT "DEVICE XXX" 

IPRINT MESSAGE, UUOPCiSTOP JOR 



ERRCON 



• MONilTOR DETfCTED FRPO^ HANDLING RduTIVES 
T. HASTIMGS/TH/RCC TS 31 JUN 69 
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120 
1?1 
1?2 
123 

124 
125 
126 
127 

128 
129 
1^0 



131 
132 
133 

135 
136 
137 

138 



139 
140 
141 
142 
143 
144 
145 
146 
147 



148 



(?0fla73 
I^0(?[a74 

?0e!076 

P!0(1077 

!»0Clll?l 
5!0P1P"2 



("0ei[»4 

«'0?1S"5 
^|001P!6 
C001C7 

^0PI110 

000111 

W00112 



000113 
000114 
000115 
000116 
000117 
000120 
000121 



Z65i)40 
446352 
200020 
260140 
265040 
202070 
4765S4 
202372 
5265^0 



265040 
446311 
40635'4 
522024 
422124 
511000 
254000 



265040 
446364 
202531 
515230 
421010 
472350 
254000 



000211 ' 
052650 

000000 

000310' 
00!?233 ' 
147234 
042236 
552240 

000000 



000211' 

442616 

042202 

046636 

043236 

000000 
000167 ' 



000211' 

052236 

640646 

747212 

344202 

546000 

000234' 



iOUTPUT uun FOP I-JPUT DEVICE 
;CALLEn AT U'JO LEVEL ONLY 

INTERNAL ILL^UT 

ILLOUT: JSP TAC.ERRPTU 

ASCI? /Input / 

PUSHJ PDP.ERMAM 

JSP tag.uuom.es 

ASCI? / CANNOT 00 OUTPUT/ 



(PRINT "DEVICE XXX" 

(PRINT MFSSAr.E.UUOPCSTOP JOB 



(ILLEGAL DEVICE DATA MODE (I^IT, OPEN, QR SETSTS UUOS) 
(CALLED AT UUO LEVEL ONLV 

INTERNAL ILL»<OD 



ILLMOD! 



JSP TAC.ERRPTU 

ASCI? /Il, LEGAL DATA "ODE FOR / 



JRST DEVEXC 



(PRINT "DEVICE XXX", JUO PC 



(10 UUO TO USER CHANNEL WITH NO PREVIOUS IN[T OR OPEN 
(CALLED AT UUO LEVEL 0\ILY 

INTERNAL lOIERR 

lOIERRi JSP TACERRPTU 

ASCI? /lo To UNASSIG^'ED CHANNEL/ 



JRST UUOPCP 



(PRINT UUO PC 



ERRCON - MONITOR DETECTED ERROR HANDLING ROUTINES 
T. HASTIMGS/TH/RCC TS 01 JUN 69 



7404 
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149 

150 
1=51 
152 
153 
154 
155 
156 



157 
158 
159 
160 
161 
162 
163 
164 
165 

166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 

178 
179 
190 
IRl 
1H2 
183 
184 
185 
186 
187 
188 
log 

100 

l^l 
192 
193 
194 



000122 
!^001?3 
000124 
P0I»125 
000126 



00P1130 
000131 
000132 
000133 
000134 
000135 
000136 

l?00137 
000140 
000141 
000142 
C00143 



265040 
446311 
406304 
4740^(1 
200100 



554040 
306040 

2540!J0 

265040 
446311 
472472 
254070 

265040 
442031 
3701('7 
260140 

260140 



000211' 

442616 

052652 

003000 

000000 



P500127 364l!'0 000236' 



IILLEGAL UUO 

;CALLEO AT UUO LEVEL ONLY 

INTERNAL UUOERR 

UUOERRi JSP TAC.ERRPTU 

ASCI? /ILLEGAL UUO/ 



MOVE TACl,UUO0 
IFN FTHALT.< 

TLNN TACl.USRMOD 
HALT .+1 



SOJA TACl.PCPNT 
IILLEGAL INSTRUCTION 



000314 

254207 

000137' 

000211' 

420222 

4270C50 

000234' 

000211' 
452000 

000b)00 

000256' 

00110C10 



700145 

000146 
l!'0(S147 

000150 

000151 
00("152 



050321 
5426'."7 
260140 
260140 

261147 
254000 



IGET LAST UUO PC 

lUUO FROM EXEC? 

lYES.HALT SO DUMP CAN BE TAKEN 

I CONTINUE WILL PRINT MESSAGE 

lAND PRINT, PRINT USER UUO PC IF JIFF, 



SHALT INSTRUCTION IS A SPECIAL CASE WHICH STOPS JOB BUT 
iTHE USER MAY CONTINUE FROM IT(EFFECT1VE ADR.) 
ICALLED AT UUO LEVEL WITH A JRST 



INTERNAL ILLINS 
EXTERNAL JOBPDliTTYSTC 

ILLINS: HLR? TAC.UUO 

CAIN TAC,254200tPR3G 
JRST HALTI 
JSP TAC.ERRPTU 
ASCI? /Ill INST./ 



HALTI i 



1100144 064253 641432 *C 



227000 ./ 
000141 I 
000000 
000000 

000146' 
000000 



JRST UUOPCP 

JSP TACERRPTU 
ASCI' /HALT/ 
?0S TACl.JOBPOKJDAT) 
PUSHJ POP.PCP 
PUSHJ POPf inlmes 
ASCIZ / 



HRRM UUO, JOBPDK JDAT) 
PUSHJ PDP.TTYSTC 
PUSHJ PDP.STOPl 

PUSH POP, JOBPDKJDAT) 
JRST USRXIT 



I ILLEGAL OPCODE 

IIS IT A HALT? 

lYES, PRINT DIFFERENT MESSAGE 



IPRINT UUO PC AND STOP JOB 



)UUOPC=LOC OF HALT*1 

IPRINT "USER LOC XXX" 

IPPINT MONITOR MODE RESPONSE 



(SAVE EFFECTIVE ADDRESS OF HALT 

(START TTY TYPING 

(STOP JOB 

) RETURN ONLY IF HE TYPES CONT 

IPUT USER RETURN ON END OF PD LIST 

(RETURN TO USER IN CASE HE TYPES CONT COMMAND 



ERRCnN 



■ MHMT 
T. HAS 



OR DETECTED ERROR HAMDLING ROUTINE? - V42!4 
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MACRO, V36 19!07 4-JJN-69 °AGE 18 



195 
196 

197 

198 
199 
2C0 
2m 
2fi2 
2!»3 
2?4 
2^5 

2!»6 
2i»7 
2.16 
2^9 
210 
21.1 
212 
213 
214 



215 
216 

217 
218 
219 
220 
221 
222 
223 
2?4 



00l?!153 
("001^^4 
P001')6 

ca0i56 
fiia0i?7 
0001^.0 

0100161 



000162 
000163 
000164 
000165 
000166 



000167 
000170 



201040 010000 

412046 0000^2 

620000 011^000 

265040 000212' 

442531 643500 



000000 
254000 



265040 
412030 



446450 541650 
476453 120214 
476444 000000 



SROUTINE FOR HUNG 10 DEVICE 

;C4LL fOVE OEVDAT, ADORESS OF DEVICE HaTA BLOCK 

) PUSHJ POP.DEVHNG 

INTERNAL DEVHNG 

DEVHNGI MOVEI TAC.IOACT (TURN OFF ID DEVICE ACTIVE BIT IN 

UNDCAM TAC.DEVIOS(DEVDATH«EWORY AND lOS 
TR? lOS.IOACT 
JSP TACERRDEV 
ASCI? /HUNG / 

JRST DEVEXC 

iBAD UECTAPE DIRECTORY 

iCALLED AT INTERRUPT AND UUO LEVEL? WITH OEVDAT AND ITEM SETUP 

INTERNAL BADOIR 

000213' BADDIH! JSP TAC.ERRPNT 

420210 ASCI? /BAD DIRECTORY FOR / 



000000 

000167' 



(ROUTINE TO PRINT "DEVICE XXXI EXEC CALLED FOR EXEC/USER YYY" 

iTHE\i STOP JOB 

iTQ qt USED RY DEVICE HEPENDENT ERROR MESSAGES AFTER JSP TAC.DEVERR 



INTERNAL DEVFXC 

260140 000310' DEVEXC: PUSHJ POPiERNlAM 
254000 000241* JRST EXCALP 



IPRINT "DEVICE XXX" 

IPRINT "EXEC CALLED FROM EXEC/USER LOG YvY" 



ERRCON - MONITOR OETECTED ERROR HANDLING ROUTINES 
T. H4ST1NGS,'TH/RCC TS 01 JUN 60 
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2?5 
2?b 
2J7 
2?8 
??9 
230 
271 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 

244 

245 
246 
247 
248 
249 



f!0Ol71 
00^1172 
00PI173 
1?00174 
PI00175 
0013176 
000177 
000200 

0002^1 
000202 

000203 
000204 
000205 
000206 
000207 
00021lil 



261140 
261110 
261J.40 
260140 
2601.40 
260140 
260140 
202371 

052750 
064245 

260140 
262140 
262140 
260140 
262140 
2540^10 



000 
000 
000 
000 
000 
000 
000 
337 

306 
600 



04 
00 
006 
000 
000 
3101 
143' 
432 

424 

000 



000147' 
000006 
000000 
000150 ' 
000004 

000000 



ROUTINE TO HALT A JOB WHEN 4 DEVICE IS NOT READY FOR I/O 
CALLED FROM XXXSER AT UUO LEVEL 
CALL MOVE DEVDAT.ADOR, OF DEV. ODB 
PUShj PDP.HNGSTP 

INTERNAL HNGSTP 



HNGSTF! PUSH PDF, ITEM 
PUSH POP, lOS 
PUSH PDP.DEVDAT 
PUSHJ PQP.TTYFIIW 
PUSHJ P3P,pRQM 
puShj POPjERNAm 
PUSHJ PpP, INLMFS 

ASCI? / OK? 

tC 



PUSHJ PDPfTTYSTC 
POP PpPiOEVDAT 

POP PQPi lOS 
PUSHJ POP.STOPl 
PQP PQP, ITEM 
JR5T WSCHEO 



ISAVE DEV'S IDS WORD & ODB 

IFINO JOR'S TTY a WAIT UNTIL I/D IS FINISHED 

IPRIMT QUESTION MARK FOR BATCH 

IPRIWT "n^VICE XXX" 

)AND MSG. 



ISTART UP TTY IN COMMAND MODE 
(BRING BACK DEV DDB S UlS WORD 

ISTOP JDR S 

IRESCHEDULE 



ERRCnN 
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250 








2S1 








252 








253 








2-54 








255 








256 








257 








258 








259 








260 








261 








262 








263 








264 








265 








266 








267 








268 








269 


000211 


3342''0 


000052' 


270 


00C212 


1352<^0 


000000 


271 


1^00213 


3360C0 


000004 


272 


000214 


4760-^0 


000000 


273 








274 








275 








276 


5100215 


261140 


000005 


277 








278 


000216 


301200 


000000 


279 


000217 


254200 


000217' 


290 








281 


000220 


261140 


000006 


232 


000221 


261140 


000001 


2S3 


000222 


200344 


000000 


214 








2'?5 








215 








287 








288 


000223 


260140 


000000 


239 








290 








291 


000224 


260140 


000177' 


292 








293 


000225 


374321 


242644 




000226 


512372 


220222 




000227 


471011 


247604 




000230 


200000 


000000 


294 


000231 


260140 


000000 


295 


000232 


254000 


000224' 


296 









;C0MHON ERROR MESSAGE SETUP "OUTINES 

iCALL! JSP TAC.ERRPTU, ERRDEV, OR ERRPNT 

! ASCI? /MESSAGE/ 

i "ETURNS HERE WITH DEVOAT SAVED 0(PDP) 

1 C(nEVOAT)=TTYDnB. OAT To TTY OUTPUT BUFFER POIMTER 

I ITEM=JOB NUMBER 

)USE ERRPTU IF AT UUO LEVEL FOR SURE 

;ERRnEV IF ERROR FOR AN ASSIGNED DEVICE AT ANY LEVEL 

(ERRPNT '^ITh ITEM ALREADY SET TO OFFENDING JOB NUMBER 

iTHE JSP CALL IS USED in CASE PUSHDOWN SPACE BECOMES CRITICAL 

JAGAIN AMD ERRPNT HAS TO WlPr EXISTING LIST nUT 

INTERNAL ERRPTU 

INTERNAL ERROEV, ERRPNT 

EXTERNAL PjORN.JOe, JBTaDR, JBTDAT.TTYFND.NULERR 

IFN FTTTYSER,<EXTERNAL TTYERP> 



ERRPTU! SKIPA ITEM, JOB 
ERRQEV! LDB ITEM.PJOPN 
EHRPNl! SKIPM ITEM 

"^ETON' NULERR 



(BLAME CURRENT JOB IF NOT 0, 

IJOB NO, FRO" DEVICE DATA BLOCK 

lERROR I^' NULL JOB? 

lYES, SET FLAG FOR ERROR IN NULL JOB 

! SO STATE OF NULL JOB WILL BE REEST ABLI <;HED 

I WHEN IS IT RUN AGAIN(SEE CLOCKl) 

ISAVE CALL TO ERROR(JSP DAT, ERROR) 

IJOB NUMBER 
lOUT OF RANGE? 

ISAVE ADR, OF OEV, DATA BLOCK 
ISAVE RETURN FROM ERRPNT 



PUSH PDF, DAT 
IFN FTRCHKi< 

CAIL ITEM, JOHN 

HALT 
> 

PUSH PDP,DEVDAT 

PUSH PDP.TAC 

MOVE jnAT,JBTDAT(lTE") lEVEN NULL JOB HAS JOB DATA AREA 
IFN JDAT-PROG,< 

MOVE PROGi JaTADR( ITE") IJOB RELOCATION 

IFF FTTTYSER,< pUSHJ PDP.TTYFND (FIND TTY FOR THIS JOB(ITEM)> 

IFN fTTTYSER,< PUSHJ POP. TTYERP iFIMn THIS TTY AND 

ISET MERTPO IN DOB 
> 

PUSHJ POP, INLMES 
ASCI? /? 
ERROR IN JOB / 



PUSHJ POP.PJOB 
JRST INLMES 



IPRINT JOB NO, 

IPRINT MESSAGE SPECIFIED BY CALLER 

! AND RETRUN TO LOG. AFTER MESSAGE 
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2=)7 
298 
299 
T,m 

372 

3?i3 

3?'4 

3?5 P00233 260140 

3^6 000234 20i'15'7 

3i:"7 

3!<8 00C235 364i'/0 000236 

3^9 

310 

311 

312 

313 

314 

315 



SROUTINE TO PRINT UUC PC AND STQP JOB 

;IF IN USER "ODE PC WILL PRIMT AS "AT USER LOC XXX" 

;IF IN EXEC '^OOE "AT EXEC LOT XXV! EXEC CALLED FORM EXEC/USER/ LOC YYY 



INTERNAL UUOPCP.UUOMES 
EXTERNAL JOBPOl 

0000PI0 UUOMES; PUSHJ POPiCQNMES 
000151' UUnPrPi "OVE TACl, JOnPDK JDAT) 

SOJA TACl.PCPNT 



IPRINT MESSAGE POINTED TO RV TAC 

!UUO PC STORED IN JOP DATA AREA 

) FIRST LOC ON PD LIST 

IDECREi>1ENT TO POINT TO UUO IN USER AREA 



(ROUTINE TO PRINT ONE OF THREE MESSAGES AND STOP JOB 
!l) "AT EXEC LOC XXXI EXEC CALLED FROM EXEC LOC YYY" 
)2) "AT EXEC LOC XXX; EXEC CALLED FQRM USER LOC YYY" 
;3) "AT USER LOC YYY" 



(CALL! 



MOVE TACl. XXX 



IWITH PC FLAGS IN LH 



316 
317 
3.18 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
33 
331 
332 
333 
334 
335 
336 

337 
378 
339 
340 
341 
342 



PUSHJ PDP.PCPNT 

MEVEP RETURN IF AT UUO LEVEL 



!?0P'236 
H00237 
000240 



1?0P'241 
005^242 
000243 

5100244 

000245 

000246 
000247 
000250 

000251 



260140 
6031'0 
2540;i0 



260140 
3550)2 
0000i)0 
200107 
275170 
260140 
260140 
262140 
254070 



INTERNAL PCPNT 
EXTERNAL TPOPJ 

000256' PCPNT! PUSHJ PDP.PCP 
010000 TLNE TACl.USRMOD 

000247' JRST PCSTQP 



IPRINT " AT EXEC XXX" OR 
)WAS PC IN USER M0DE7 
lYES, ENOUGH IMFO, 



AT USER 



iROUTINE TO PRINT EITHER! 

il) "i EXEC CALLED FROM EXEC LOG YYY" 

12) "i EXEC CALLED FROM USER LOC YYY" 

lAWO STOP JOfl 

iCALLi PUSHJ POP.EXCALP 

! NEVER RETURNS IF AT UUO LEVEL 

INTERNAL EXCALPiPCSTOP 



000232' EXCALPi PUSHJ PDP.INLMES 

552636 ASCI? /! UUO/ 

000000 

000234' WOVE TACl. JOBPOK JOAT) 

000001 SUPI TACl.l 

000256' PUSHJ PDP.PCP 

000000 PCSTOPI PUSHJ PDPfHOLD 

000006 POP PDPfDEVDAT 

000000 JRST TPOPJ 



(UUO PC IN JOB DATA AREA 

I9ACK IT UP TO POINT TO UUO 

IPRIN'T "EXEC LOC " OF USER LOC 

(STOP J09» START TTY AND SET JOB ERROR BtT 

IRETURN ONLY IF AT INTERRUPT LEVEL 

•REMOVE ERROR CALL AND RETURN 
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in 
344 
345 
346 
347 
348 
349 
350 

351 

352 

3'^3 

354 

355 

356 

357 

3'58 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

5He 

3«1 

3R2 

3«3 

304 

3fl5 

306 

357 

3tl8 

389 

390 

391 

392 

393 



C0C252 
00(^253 
OI0P254 
f 00256 

000255 
000257 
(^00260 
000261 
000262 



000263 
000264 

000265 
000266 
000267 
000270 
000271 
000272 



000273 



202032 420212 

542130 320000 

202032 420252 

515132 220000 



iROUTINE TO PRINT PC AS I 
;l) "EXEr LOT XXy" OR "USER LOC VXX" 
;CALL! MOVE TACl.PC Tn PRINT(LH=PC FLAGS) 
; PUSHJ PDPiPCP 



XMODE! ASCI? / AT EXEC / 



201040 
603l«0 
201040 
260140 
550040 



000252' 
010000 
000254' 
000233' 

000002 



UMOOE! ASCI? / AT USER / 



PCPI MOVEI TAC.XMOOE 
TLNE TACl.USRMOD 
^OVEI TAC.UMODE 
PUSHJ PDP,C0NME5 
MRR? TAC.TACl 



INTERN OrTPNT 



lASSUHE PC IM EXEC MODE 

MS IT7 

INO, USER MODE 

(PRINT O'JE OR OTHER 

IPRINT RIGHT HALF IN OCTAL 

I FALL INTO OCTPNT 



(ROUTINE TO PRINT 6 DIGIT OCTAL ^IUMBER 

ICALL! MOVE OAT.TTY OUTPUT PYTE POINTER 

i WRR TAC, OCTAL NUMBEP 

i PUSHJ POP, OCTPNT 

I RETURN TACl. PRESERVED. TAC DESTROYED 



514040 
650040 

241040 
607040 
263140 
250140 

541040 
2540?|0 



000001 OCTPMTs 
700000 



000003 

777777 

000000 

000305' 

000000 

000265' 



OCTPll 



HRLZ TAC, TAC 
TRO TAC. 700000 

ROT TAC. 3 

TLNN TAC, 777777 

POPJ POP, 

PUSHJ POP.PRTNUM 

MRRI TAC,0 

JRST OCTPl 



(MOVE TO LH FOR ROTATING 
ISETUP AN END FLAG 

IGET NEXT OCTAL DIGIT 

IWAS THAT FLAG? 

lYES. 00 NOT PRINT IT 

INO, PRINT OCTAL DIGIT 

(CLEAR RM 

IGET NEXT OCTAL DIGIT 



(ROUTINE TO ADD 1 TO TaC AND PRINT DECIMAL 
(SAME CALL AS OCTPNT 



000274 
000275 



INTERN DECPl 
344040 000274' DECPl! AOJA TAC.RADX10 

(ROUTINE TO PRINT DECIMAL 
(CALL! SAME AS OCTPNT 
iTACl! PRESERVED 

INTERN RADX10 

261140 000002 RADX10{ PUSH PDP.TACl 
260140 000300' PUSHJ PDPjPRTDlG 



(ADD 1 AND GO PRINT 



(SAVE TaCI 

(PRINT DECIMAL DIGITS 



ERRCON - 



354 
3<35 

336 
30 7 
308 
399 
45)2 
4.?1 
A'/2 
4C3 
4(?4 
475 
4 76 
4 ''7 
4;' 8 

4:19 

4t0 

111 

412 

413 
41 4 
415 
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00K276 
f0C277 



C0FI3C0 

ca^Sfi 

C^0P3C2 
''0C373 
fl01^3C4 
^■00375 



f003C7 



262140 
263140 



231000 
506173 
322e40 
26fll40 
554B43 
271240 



2004''0 
254^.'0 



000002 

00?I0("0 



000012 
000000 
000304 ' 
000300 ' 
000000 
000060 



00?001 

000070 



"UP POPiTACl 
PQPJ PriPi 

hecuksive decimal print routine 
call: "Ove tac, decimal no, 

PUShJ PUP.PRTOIG 



IRESTORE TACl 
I AND RETURN 



PRTDIG: IDIVI TAC. 12 i 
HRLM TACl. (POP) 
JUMPE TAC. 1+2 
PUSHJ PUP. PRTDIG 
WLR£ TAC,(PDP) 
ADDI TAC,"0" 



PRTNUM; 

lEM rTTTYSER,< 

EXTERN OUTCHS 
MOVE 
JRST 

> 

IFE FTTTYbEH.< 



DIVIDE PY 10 

IRT ON PD LIST 

IFINISHEO? 

iNO. CALL S OR F 

IYE5, GET LAST NUMBER 

;CONVERT TO ASC12 



TEM.TAC 
OUTCMS 



IPUT 
IAND 



CHAR INi CHAR AC 
OUTPUT IN SCNSRF 



IDPB TACiQAT 
POPJ PDP. 



IADD CHAR TO HALGF DUPLEX OUTPUT STREAM 



FRRCON 



416 
117 
418 
41.9 
4?0 
4?1 
4?2 
4?3 
4?4 
4?5 

4?6 
4?7 
4?B 
4?9 
4^0 
4-11 
4 72 
4:?3 

4. -^5 
4,36 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
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(10!?310 
!'0f311 
«!0(?3)2 

("0C314 



f0(»315 
5500316 
!^00317 
I?0i?l3?fcl 



260140 
422132 
4250!"0 
3321H3 
?001f'2 



201040 
246040 
322040 

201431 



iROUTlME TO PRINT "DEVICE XXX" 

!CALL *^OVE OAT. ASCII OUTPUT BYTE POINTER 

! PUSH POP.DEVnAT 

; PUShj PDP.ERNAM 

INTERNAL ER^AM 



000241' ERNAM: 
644606 
000000 
777777 

000000 



PUSHJ PDP.INLMES 
ASCI? /DEVICE / 

SKIPE TAC1.>-1(P0P) ;IS OEVDAT = 07 
><OVE TAC1,DEVNAM(TAC1) INO, GET DEVICE NAME 



iROUTINE TO PRINT SIXBIT NAME 

IC«LL «OVE DAT, ASCII OUTPUT BYTE POINTER 

; move tac1,na"e 
! PUShj pdPiPRname 

INTERNAL PRNAME 
EXTERNAL CPOPJ 



000000 
000006 

000000 
000040 



000321 260140 0003071 

000322 254000 0003151 
000323 



PHNAME! movei tac.0 
LSHC TAC,6 
JUMPF TAC.CPOPJ 
MOVEI TEH,40(TAC) 

IFN FTTTYSER,< 

EXTERN OUTChS 

PUSHJ POP, OUTCHS 

> 

IFE FTTTySER,< 

IDPB TEM.DAT 

> 

JRST PRNAME 



ERRENU: END 



(SHIFT IN NEXT CHAR, 

lASCII VERSION INTO CHREC FOR OUTcHS 



NO ERRORS DETECTED 
PROGRAM BREAK IS 000323 



ERRCON 
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ADRESR 


000040 


INT 


APRILR 


("00016 




APPPnu 


l?00031 




CERROR 


0000S3 


INT 


HAT 


00P10!'5 


INT 


DEVEXC 


000167 


INT 


OEVNAM 


0000C10 


INT 


fHRDEV 


000?12 


INT 


FRRPDL 


00(?047 


EXT 


EXC4LP 


000241 


INT 


FTRCHK 777777 777777 




HNGSTP 


000171 


INT 


ILL 1"S 


000130 


INT 


ILM 


020000 




lOIERR 


000113 


INT 


JBTATR 


000000 


EXT 


JOB 


00C211 


EXT 


NLAOHR 


000046 




NXM 


010000 




OERROR 


000050 


INT 


PCPi\IT 


000236 


INT 


PJOB 


000231 


EXT 


PRNAME 


000315 


INT 


PRTOIG 


000330 




REGILM 


0000'^5 


EXT 


TACl 


000002 


INT 


TTYERP 


000223 


EXT 


TTYSTC 


000203 


EXT 


USRMOD 


010000 


INT 


UUO 


000014 


INT 


UUOMFS 


000233 


INT 


WSCHFD 


000210 


EXT 



APRERR 


(100000' 


EXT 


APRNXM 


000022 ' 




APRSCO 


000036 ' 




GOMMES 


0002A1 1 


EXT 


DECPl 


000273' 


INT 


OEVHNG 


001^153' 


INT 


ERNAM 


00035 0' 


INT 


ERREMD 


000323' 




ERRRNT 


000213' 


INT 


FTPREL 777777 777777 




FTTTYS 777777 777777 




HOLD 


000247' 


EXT 


ILLMOD 


0001'J4< 


INT 


INLMFS 


000310' 


EXT 


IDS 


0000H0 


INT 


JBTOAT 


000222' 


EXT 


JOBN 


000216' 


EXT 


NULAOR 


000046' 


EXT 


OCTPl 


000265' 




nuTcHS 


00032X' 


EXT 


PCSTOP 


000247' 


INT 


PJOBN 


002212' 


EXT 


PROG 


000007 


INT 


prtnum 


000305' 




5TCP1 


000206' 


EXT 


TEM 


000010 


INT 


TTYFND 


000000 


EXT 


IIERROR 


000a'i2 1 


INT 


USRREL 


000004 ' 


EXT 


UUO0 


000126' 


EXT 


UUOPCP 


000234' 


INT 


XMOOF 


000252' 





APRILM 


?00000' 


INT 


APRPC 


000036' 


FXT 


SAOOIR 


000162' 


INT 


CPOPJ 


000317' 


FXT 


HEVOAT 


000006 


INT 


DEVIOS 


000002 


INT 


ERRCON 


000000' 


INT 


ERROR 


000047' 


INT 


ERRPTU 


0015211' 


INT 


FTHALT 


000000 




HAUTI 


000137' 




ILLINP 


000062' 


INT 


ILLOUT 


000073' 


INT 


lOACT 


010000 


iNT 


ITEM 


000004 


INT 


JDAT 


000007 


INT 


JOBPDl 


000244' 


FXT 


NULERR 


000214' 


FXT 


OCTPNT 


000263' 


INT 


PCP 


000256' 




POP 


000003 


INT 


POV 


200000 




PROM, 


000175' 


EXT 


RADXie 


000274' 


INT 


TAC 


000001 


INT 


TPOPJ 


000251' 


FXT 


TTYFUW 


000174 ' 


FXT 


UMOOE 


000254' 




USRXIT 


000152' 


FXT 


UUOERR 


000122' 


INT 


VERRCN 


000404 


INT 



A 


6# 


6 








ACl 


6# 


6 








AC? 


b# 


6 








AC3 


6# 










ADRERR 


73 


75* 








AEFERR 


6# 


6 








AL 


b# 


6 








APRERR 


341 


33 








APRILM 


?8 


33# 








APRILR 


45 


?k!# 








APR^tXM 


3 5 


=i4« 








APRPn 


?9 


36 


64 






APRPnL 


■55 


f^l3» 








APRSCD 


48 


52 


58 


64# 




ASSCON 


6# 


6 








ASSPRG 


6# 


6 








B 


6# 


5 








RADOIR 


211 


21 3# 








RUl^P'-iT 


6# 


6 








BUFWRD 


6# 


6 








CERRnR 


88 


98# 








rUK'R 


6# 


6 








CL5IM 


6# 


6 








CLSOUT 


5# 


6 








CMwy 


6# 


6 








no\iMES 


30 


335 


356 






CORC^!T 


5# 


6 








CPOPJ 


436 


440 








n 


5# 


6 








DAT 


5# 


6 


61 


276 




ncL 


6* 


6 








DCLI 


6# 


6 








ncLO 


6# 


6 








nCLR 


6# 


5 








no I 


6# 


6 








ODn 


6# 


6 








nECPi 


382 


334# 








HEN 


6# 


6 








OEVADR 


6# 


6 








DEVi3l!F 


6# 


6 








nEVCwR 


6# 


6 








OEVCTR 


b# 


6 








OEVDAT 


6# 


6 


2?i2 


23b 


245 


OEVEXC 


77 


139 


2fl6 


22U 


2?2# 


nEVEXT 


6# 


6 








TEVFIL 


6# 


6 








nEVHVG 


199 


2C1# 








nEVMD 


6# 


6 








ntvios 


6* 


6 


2!52 






DEVL'TG 


6# 


6 








nEVHdD 


6# 


6 








DEV^JAM 


6# 


6 


427 






nEVOAD 


6# 


6 









281 



341 



OEVPPN 


6# 


6 






OEVPTR 


6# 


6 






nEvsF:R 


6« 


6 






OGF 


6* 


6 






nHNG 


6# 


6 






aiK- 


bit 


6 






niMi 


6# 


6 






PLK 


6# 


6 






OMT 


6# 


6 






ONAERR 


6# 


6 






DOU 


6i» 


6 






DR 


6* 


6 






riRU 


6» 


6 






ORM 


b# 


6 






DSER 


b» 


6 






DSI 


5# 


6 






OSKRLS 


5# 


6 






nso 


6# 


6 






nvAVAL 


6# 


6 






nVCDR 


6# 


6 






nvniR 


6# 


6 






nvoiRi 


6# 


5 






nVTIS 


6# 


6 






rwiriSK 


6# 


6 






CVDTS 


6# 


6 






OVIN 


6l» 


6 






OVLNn 


6« 


6 






DVLPT 


6* 


6 






0VMT4 


6# 


6 






DVOUT 


6* 


6 






DVPTP 


6i» 


6 






nvPTR 


6« 


6 






OVTTY 


6# 


6 






FNTRR 


6# 


6 






ERN4M 


117 


12 8 


222 


230 


ERRCON 


12 


13# 






ERRDEV 


75 


;?/4 


265 


27D# 


ERRE^iD 


4'i2i» 








ERROR 


88 


<?1# 






FRRPnL 


39 


51 






ERRPVJT 


1?I3 


213 


265 


271« 


ERRPTU 


45 


50 


S6 


62 


EXCALP 


223 


33 3 


335# 




FB'^ERR 


6tt 


6 






FNEERR 


bit 


6 






FRnSfG 


b» 


6 






FT?RFL 


6# 


3 7 


40 




FT4TTA 


6# 








FTCHEC 


6# 








FTFX4H 


6* 








FTFIKJl 


6« 








FTGETT 


6# 








FTHALT 


6# 


99 


156 





422 



115 



424# 



126 



IV 



146 



155 



176 



18tl 



264 



269* 



FTKCT 


6# 




TT^O^P 


6« 




TTPRW 


6# 




FTOfttei 


b# 




TTRCMK 


6l» 


277 


TT^EiS 


6# 




TTRLFE 


6# 




FTTAI K 


btt 




TTTI-'E 


6# 




FTTRhC 


6# 




TTTRPS 


6« 




FTTTYS 


6# 


267 


MALTI 


175 


1!10# 


HNGSTP 


231 


233« 


MOLO 


3t) 


34(1 


HSlMSK 


6i» 


6 


HS4P0S 


6# 


6 


MStSIZ 


6# 


6 


HUMGCT 


bit 


6 


hung?;t 


b* 


6 


I 


6# 


6 


IB 


b# 


6 


IBUFT 


6# 


A 


ICLO'^B 


6# 


6 


ILLIN'P 


113 


115# 


ILLINS 


17i5 


173# 


ILLMOO 


US 


137# 


ILLO;)T 


124 


126* 


ILM 


6# 


34 


ILUERR 


6« 


5 


INDFP 


6# 


6 


INITP 


btt 


6 


INLMFS 


30 


184 


INP3 


b# 


6 


10 


b# 


6 


I04CT 


bit 


6 


lOBER 


bn 


6 


lOPKTL 


bit 


6 


lonoT 


b# 


6 


lOCOM 


6# 


6 


lOHE^JD 


6# 


6 


lOOERR 


btt 


6 


lOOTER 


6# 


6 


IOFN[i 


6# 


6 


lOFST 


b# 


6 


lOIEPR 


144 


146# 


lOTMPM 


5# 


6 


lO'-'^r-K 


6# 


6 


inPit! 


6# 


6 


los 


6i» 


6 


IOTE^'0 


6# 


6 


lOUSF 


bit 


6 


low 


bit 


6 



237 



286 4fi7 



412 



4-12 



446 



239 



21^1 



291 295 



2Pi3 



335 



424 



2f3 



234 246 



lOWC 


6« 


6 


























IPPEfJR 


b# 


6 


























ITEM 


6# 


6 


96 


97 


233 


248 


269 


270 


271 


278 


293 








JACCT 


6# 


6 


























JBriHR 


6# 


6 


























JBFCTK 


(,« 


6 


























JBFPTR 


6# 


6 


























JBTADR 


2S6 




























JBTOiT 


26b 


283 


























JBUF 


6*/ 


6 


























JDAT 


6« 


6 


182 


189 


193 


283 


254 


306 


337 












JEPR 


btl 


6 


























JLOG 


bit 


6 


























JN4 


6it 


6 


























JOR 


«9 


97 


266 


269 






















JO?=N 


Tie 


278 


























JO^Pni 


171 


1P.2 


189 


193 


3f13 


306 


337 
















JRO 


6# 


6 


























JWPQS 


6* 


5 


























JWSI? 


6# 


6 


























JXPN 


6* 


6 


























LISTRN 


6 




























LOOK" 


6# 


6 


























MEOOLE 


6# 


6 


























NETERR 


6# 


6 


























NLAOHR 


90# 


92 


























MLFEPR 


6l8 


6 


























NSnERR 


6# 


6 


























NSFEPR 


6# 


6 


























NSHF 


6# 


6 


























MSR3IT 


bU 


6 


























NSWP 


btt 


6 


























NULADR 


HV 


90 


























NUUEPR 


266 


272 


























NX^ 


6# 


■^4 


























OBUFR 


5# 


6 


























nCLOsa 


bit 


6 


























ncTPi 


372# 


377 


























ncTPNT 


361 


369# 


























CIEfRnR 


as 


52# 


























0UT3FB 


bn 


6 


























nuTcws 


4?8 


IIP! 


443 


444 






















0UTP2 


6# 


6 


























PCP 


1P3 


322 


339 


353# 






















PCPMT 


65 


1^6 


163 


3H8 


319 


322# 


















PCRTCP 


374 


333 


340/11 
























PDP 


6# 


6 


43 


91 


92 


1(!5 


117 


128 


183 


184 


190 


191 


193 


222 




233 


234 


235 


236 


237 


238 


239 


244 


245 


246 


247 


248 


276 


261 




2S2 


2S6 


291 


294 


3^5 


322 


335 


339 


340 


341 


356 


374 


375 


392 




393 


3>'4 


395 


4i:)2 


4PI4 


4!!5 


434 


426 


444 












pjoa 


30 


294 


























PJOB^-' 


266 


270 


























pov 
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